admin_inc.asp 环保时代家庭财务管理系统 EPffms v4.0 - ASP源码程序

www.gusucode.com > 环保时代家庭财务管理系统 EPffms v4.0 > 环保时代家庭财务管理系统 EPffms v4.0\code\eptimehome\admin_inc.asp
    <!--#include file="inc/Main_Class.asp"-->
<!--#include file="inc/md5.asp"-->
<%
'****************************************************
'Code for EptimeFFMS
'Vision : v4.0
'****************************************************
'response.Charset = "gbk"
const selfMenuXml ="images/selfmenu.xml"

dim menuList : menuList = getBigMenuInfo(0)

Sub viewFoot
	echoRunTime
	terminateAllObjects
	echo "<div align=center >Powered by eptime.cn <a target=""_blank"" href=""http://home.eptime.cn/"">V4.0</a></div>" & chr(10) & "</body>" & chr(10) & "</html>"
End Sub

Sub viewHead(str)
	checkPower
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="content-type" content="text/html; charset=gbk" />
<TITLE><%=str%>-EptimeHome4.0系统管理</TITLE>
<link href="images/admin.css" rel="stylesheet" type="text/css" />
<script src="js/common.js" type="text/javascript"></script>
<script src="images/main.js" type="text/javascript"></script>
</head>
<body>
<%
End Sub

Function getBigMenuInfo(level)
	redim bigMenu(0,0)
	select case clng(level)
		case 0
			redim  bigMenu(9,2)
			bigMenu(0,0)="首页" : bigMenu(0,1)="index" : bigMenu(0,2)="index.asp?action=notice"
			bigMenu(1,0)="流水帐薄" : bigMenu(1,1)="date" : bigMenu(1,2)="money.asp"
			bigMenu(2,0)="帐户管理" : bigMenu(2,1)="zhang" : bigMenu(2,2)="zhanghu.asp"
            bigMenu(3,0)="家庭成员" : bigMenu(3,1)="template" : bigMenu(3,2)="admin_manager.asp"
			bigMenu(4,0)="收支项目" : bigMenu(4,1)="make" : bigMenu(4,2)="bigclass.asp"
			bigMenu(5,0)="报表统计" : bigMenu(5,1)="tool" : bigMenu(5,2)="tongji/yearReport.asp"
            bigMenu(6,0)="债权债务" : bigMenu(6,1)="zhaiquan" : bigMenu(6,2)="zhaiquan.asp"
			bigMenu(7,0)="理财日记" : bigMenu(7,1)="diary" : bigMenu(7,2)="diary/diary.asp?act=showlist"
			bigMenu(8,0)="系统设置" : bigMenu(8,1)="advertise" : bigMenu(8,2)="admin_config.asp"
			bigMenu(9,0)="关于" : bigMenu(9,1)="sysadmin" : bigMenu(9,2)="about.asp"
		case 1
			redim  bigMenu(6,2)
			bigMenu(0,0)="首页" : bigMenu(0,1)="index" : bigMenu(0,2)="index.asp?action=notice"
            bigMenu(1,0)="流水帐薄" : bigMenu(1,1)="date" : bigMenu(1,2)="money.asp"
			bigMenu(2,0)="报表统计" : bigMenu(2,1)="tool" : bigMenu(2,2)="tongji/yearReport.asp"
            bigMenu(3,0)="债权债务" : bigMenu(3,1)="zhaiquan" : bigMenu(3,2)="zhaiquan.asp"
			bigMenu(4,0)="理财日记" : bigMenu(4,1)="diary" : bigMenu(4,2)="diary/diary.asp?act=showlist"
			bigMenu(5,0)="修改密码" : bigMenu(5,1)="advertise" : bigMenu(5,2)="user_modi.asp"
			bigMenu(6,0)="关于" : bigMenu(6,1)="sysadmin" : bigMenu(6,2)="about.asp"

	end select
	getBigMenuInfo = bigMenu
End Function

Function getSmallMenuInfo(level)
	redim smallMenu(0)
	select case clng(level)
		case 0
			redim  smallMenu(9)
			smallMenu(0)="系统首页,index.asp?action=notice|自定义快捷菜单,admin_selfmenu.asp|"&getSelfMenu
			smallMenu(1)="流水账薄列表,money.asp||新增收入记录,money_add.asp?type=0|新增支出记录,money_add.asp?type=1||新增转账记录,money_zhuan.asp||新增借入记录,money_jie.asp?type=3|新增借出记录,money_jie.asp?type=4|新增收债记录,money_jie.asp?type=5|新增还债记录,money_jie.asp?type=6"
			smallMenu(2)="帐户管理,zhanghu.asp||新建帐户,zhanghu_add.asp"
smallMenu(3)="家庭成员管理,admin_manager.asp"
			smallMenu(4)="大类项目,bigclass.asp|添加大类,bigclass_add.asp||小类项目,smallclass.asp|添加小类,smallclass_add.asp"
			smallMenu(5)="年度收支统计表,tongji/yearReport.asp||年度收入表,tongji/year.asp?type=0|年度支出表,tongji/year.asp?type=1||家庭成员收入表,tongji/chengyuan.asp?type=0|家庭成员支出表,tongji/chengyuan.asp?type=1||收入构表成图,tongji/shouzhi.asp?type=0|支出构成图表,tongji/shouzhi.asp?type=1||收支汇总报表,tongji/total.asp"
smallMenu(6)="债权债务明细,zhaiquan.asp||往来单位人员,wanglai.asp|新增往来机构人员,wanglai_add.asp"
			smallMenu(7)="写日记,diary/add.asp|我的日记,diary/diary.asp?act=showlist||公开日记,diary/index.asp?act=showlist"
			smallMenu(8)="修改密码,user_modi.asp||系统及数据库设置,admin_config.asp|SQL高级助手,admin_datarelate.asp?action=sql|备份、压缩、还原,admin_database.asp||上传文件管理,admin_upfile.asp"
			smallMenu(9)="关于系统,about.asp||使用帮助,help.asp|正版注册,reg.asp|在线升级,updata.asp|意见反馈,http://www.eptime.cn/comment/?keyid=phpcms-content-title-577&verify=7d43c679603be917726c5f2312724385"
		case 1
			redim  smallMenu(6)
			smallMenu(0)="系统首页,index.asp?action=notice||新增收支记录,money_add.asp|收支记录列表,money.asp"
			smallMenu(1)="流水账薄列表,money.asp||新增收入记录,money_add.asp?type=0|新增支出记录,money_add.asp?type=1||新增转账记录,money_zhuan.asp||新增借入记录,money_jie.asp?type=3|新增借出记录,money_jie.asp?type=4|新增收债记录,money_jie.asp?type=5|新增还债记录,money_jie.asp?type=6"
			smallMenu(2)="年度收支统计表,tongji/yearReport.asp||年度收入表,tongji/year.asp?type=0|年度支出表,tongji/year.asp?type=1||家庭成员收入表,tongji/chengyuan.asp?type=0|家庭成员支出表,tongji/chengyuan.asp?type=1||收入构表成图,tongji/shouzhi.asp?type=0|支出构成图表,tongji/shouzhi.asp?type=1||收支汇总报表,tongji/total.asp"
            smallMenu(3)="债权债务明细,zhaiquan.asp"
            smallMenu(4)="写日记,diary/add.asp|我的日记,diary/diary.asp?act=showlist||公开日记,diary/index.asp?act=showlist"
			smallMenu(5)="修改密码,user_modi.asp"
			smallMenu(6)="关于系统,about.asp||使用帮助,help.asp"


	end select
	getSmallMenuInfo = smallMenu
End Function

Function getSelfMenu()
	dim xmlobj,selfMenuListNode,menuNodes,menuNodesLen,i,menuName,menuLink,menuStr
	set xmlobj = mainClassobj.createObject("MainClass.Xml")
	xmlobj.load selfMenuXml,"xmlfile"
	set selfMenuListNode=xmlobj.getNodes("ideacms/menulist")(0)
    set menuNodes=selfMenuListNode.selectNodes("menu") : menuNodesLen=menuNodes.length
	for i=0 to menuNodesLen-1
		menuName=menuNodes(i).selectNodes("name")(0).text : menuLink=menuNodes(i).selectNodes("link")(0).text
		if not isNul(menuName) and not isNul(menuLink) then 
			if i<menuNodesLen-1  then menuStr=menuStr&menuName&","&menuLink&"|" else menuStr=menuStr&menuName&","&menuLink
		else
			if i<menuNodesLen-1  then menuStr=menuStr&"|" else menuStr=menuStr
		end if
	next
	set menuNodes=nothing : set selfMenuListNode=nothing : set xmlobj=nothing
	if not isNul(menuStr) then getSelfMenu="|"&menuStr
End Function

Sub checkPower
	dim loginValidate,rsObj : loginValidate = "EptimeFFms3.0"
	err.clear
	on error resume next
	set rsObj=conn.db("select M_Random,AdminPower from {pre}Admin where UserName='"&replaceStr(rCookie("UserName"),"'","")&"'","execute")
	loginValidate = md5(getAgent&getIp&rsObj(0))
	if err then wCookie "check"&rCookie("UserName"),"" : die "<script>top.location.href='index.asp?action=login';</script>"
	if rCookie("check"&rCookie("UserName"))<>loginValidate then wCookie "check"&rCookie("UserName"),"" : die "<script>top.location.href='index.asp?action=login';</script>"
	checkManagerLevel rsObj(1)
	set rsObj=nothing
End Sub

Sub checkManagerLevel(level)
	dim curUrl : curUrl=request.ServerVariables("URL")
	if instr(curUrl,"admin_info.asp")=0 and instr(curUrl,"index.asp")=0 and instr(curUrl,"admin_makehtml.asp")=0 and instr(curUrl,"admin_ads.asp")=0 and instr(curUrl,"admin_expand.asp")=0 and instr(curUrl,"admin_news.asp")=0 and instr(curUrl,"admin_photo.asp")=0 and instr(curUrl,"admin_case.asp")=0 and instr(curUrl,"admin_down.asp")=0 and instr(curUrl,"admin_product.asp")=0 then
		if clng(level)<>0 then alertMsg "没有权限","" : die "<script>top.location.href='index.asp';</script>"
	end if 
End Sub

Sub clearPower
	wCookie "check"&rCookie("UserName"),""
	wCookie "UserName",""
	wCookie "UserID",""
	wCookie "AdminPower",""
	echo "<script>top.location.href='index.asp?action=login';</script>"
End Sub

Sub Label(ID)
	If ID=2 then
	Response.Write("P"&"o"&"w"&"e"&"r"&"e"&"d"&" b"&"y <b>"&"e"&"p"&"t"&"i"&"m"&"e"&" <a href=""ht"&"tp:"&"/"&"/"&"ww"&"w."&"e"&"p"&"t"&"i"&"m"&"e"&".c"&"n""  target=""_blank"">"&"<"&"s"&"c"&"r"&"i"&"p"&"t"&" "&"s"&"r"&"c"&"="&"h"&"t"&"t"&"p"&":"&"/"&"/"&"w"&"w"&"w"&"."&"e"&"p"&"t"&"i"&"m"&"e"&"."&"c"&"n"&"/"&"r"&"e"&"g"&"/"&"V"&"."&"a"&"s"&"p"&"?"&"k"&"e"&"y"&"w"&"o"&"r"&"d"&"s"&"="&sitereg&"><"&"/"&"s"&"c"&"r"&"i"&"p"&"t"&">"&"<"&"/"&"a"&">"&"<"&"b"&">"&"")
	else
	Response.Write("<"&"s"&"c"&"r"&"i"&"p"&"t"&" "&"s"&"r"&"c"&"="&"h"&"t"&"t"&"p"&":"&"/"&"/"&"w"&"w"&"w"&"."&"e"&"p"&"t"&"i"&"m"&"e"&"."&"c"&"n"&"/"&"r"&"e"&"g"&"/"&"V"&"."&"a"&"s"&"p"&"?"&"k"&"e"&"y"&"w"&"o"&"r"&"d"&"s"&"="&sitereg&"><"&"/"&"s"&"c"&"r"&"i"&"p"&"t"&">"&"<"&"/"&"a"&">"&"<"&"b"&">"&"")
	End if   
End Sub

Function Copy
	Response.Write("	"&copyRight&"<br>") & VbCrLf
	Call Label(2) '统计代码
End function
%>